home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / missle.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.9 KB  |  68 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(27)"MISSLE STRIKE  #2011-A.BAS"
  5. 140  COLOR 23,0,0
  6. 150  PRINT :PRINT :PRINT TAB(38)"IPCO"
  7. 160  COLOR 7,0,0
  8. 170  PRINT :PRINT :PRINT TAB(27)"INTERNATIONAL PC OWNERS"
  9. 180  PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190  PRINT A$
  11. 200  PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220  A$=INKEY$:IF A$="" THEN 220
  14. 230  CLS
  15. 240  Z=0:GOSUB 580
  16. 250  CLS:M=1:W=1:LOCATE 12,30:PRINT "WAVE "W:F=150:FOR L=1 TO 500:NEXT
  17. 260  CLS:I=1:KEY OFF:B=45:H=23
  18. 270  IF W>=3 THEN B$="()" ELSE B$="*"
  19. 280  ON ERROR GOTO 260
  20. 290  LOCATE 25,3:PRINT "SCORE "Z
  21. 300  X=INT(RND(1)*50):IF X>25 THEN X=45 ELSE X=35
  22. 310  LOCATE H,B:M$=STRING$(3,223):PRINT M$
  23. 320  I=I+1:Y=INT(RND(1)*50):IF Y>25 THEN X=X-1 ELSE X=X+1:IF X<10 THEN X=11:IF X>70 THEN X=69
  24. 330  S=X:IF I=24 THEN 480
  25. 340  LOCATE I,S:PRINT B$:FOR J=1 TO F:NEXT:IF I=H AND S=B OR I=H AND S=B+1 OR I=H AND S=B+2 THEN 430
  26. 350  A$=INKEY$
  27. 360  IF A$=CHR$(75) THEN 390
  28. 370  IF A$=CHR$(76) THEN 410
  29. 380  GOTO 320
  30. 390  B=B-1:LOCATE H,B:PRINT M$" "
  31. 400  GOTO 320
  32. 410  LOCATE H,B:PRINT " ":B=B+1:LOCATE H,B::PRINT M$
  33. 420  GOTO 320
  34. 430  LOCATE H,B:PRINT "< >":PRINT CHR$(7):FOR D=1 TO 20:NEXT
  35. 440  IF B$="()" THEN 460
  36. 450  GOTO 470
  37. 460  Z=Z+50:P=P+5
  38. 470  Z=Z+50
  39. 480  M=M+1:IF M=20 THEN 500
  40. 490  GOTO 260
  41. 500  P=P+10:IF Z/50>=P THEN 540
  42. 510  CLS:LOCATE 25,1:PRINT "SCORE "Z:LOCATE 12,25:INPUT "WOULD YOU LIKE TO PLAY AGAIN ";V$
  43. 520  IF V$="Y" THEN 240
  44. 530  END
  45. 540  W=W+1:LOCATE 13,30:PRINT "WAVE "W:FOR U=1 TO 1000:NEXT
  46. 550  V=0:M=0:F=F-50
  47. 560  IF F<=50 THEN F=25
  48. 570  GOTO 260
  49. 580  CLS:LOCATE 15,25:PRINT "  MISSLE  STRIKE"
  50. 590  LOCATE 16,25:PRINT "  *************"
  51. 600  LOCATE 17,25:PRINT "        BY"
  52. 610  LOCATE 18,25:PRINT "  John McCallon"
  53. 620  LOCATE 22,1:PRINT "    THE EARTH IS BEING ATTACKED BY MISSLES FROM AN ANOTHER"
  54. 630  PRINT "    PLANET. YOU ARE TO USE EARTH'S ONLY DEFENCE AGAINST THE ALIEN "
  55. 640  PRINT "    MISSLES. YOU ARE EARTH'S LAST HOPE, USE YOUR ABM'S WELL."
  56. 650  PRINT:PRINT
  57. 660  PRINT "                   POINT VALUES"
  58. 670  PRINT "                     *      50"
  59. 680  PRINT "                     ()    100"
  60. 690  PRINT :PRINT
  61. 700  PRINT "                     < >   DESTROYED MISSLE"
  62. 710  PRINT
  63. 720  PRINT "      YOU MUST DESTROY 10 OUT THE 20 MISSLES FIRED AT YOU."
  64. 730  PRINT "          (USE 'K` FOR LEFT, 'L` FOR MOVING RIGHT)"
  65. 740  PRINT "                  PRESS ANY KEY TO BEGIN"
  66. 750  C$=INKEY$:IF C$="" THEN RETURN
  67. 760  RETURN
  68.